home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.1 / card_16385.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  57 lines
  1. -- card: 16385 from stack: in.1
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 2202
  5. -- name: FileAtRoot
  6. ----- HyperTalk script -----
  7. function FileAtRoot name
  8. put NumberOfChars(":",name) into colonCount
  9. if colonCount is 0 then
  10.   return false
  11. end if
  12. if colonCount is 1 then
  13.   if FileModDate(name,true) is not empty then -- empty = file not fnd.
  14.     return true
  15.   else
  16.     return false
  17.   end if
  18. else
  19.   return false
  20. end if
  21. end FileAtRoot
  22.  
  23.  
  24. -- part contents for background part 10
  25. ----- text -----
  26. 4
  27.  
  28. -- part contents for background part 2
  29. ----- text -----
  30. --
  31. -- FileAtRoot: a function that determines if a file is present at
  32. -- the root of a volume (i.e. not buried in a folder somewhere).
  33. --
  34. function FileAtRoot name
  35.   put NumberOfChars(":",name) into colonCount
  36.   if colonCount is 0 then
  37.     -- No colon in filename, needs expanding before calling this
  38.     -- function!
  39.     return false
  40.   end if
  41.   
  42.   -- At least 1 colon. If there's more it's not at the root
  43.   if colonCount is 1 then
  44.     -- If the file exists, it's at the root.
  45.     if FileModDate(name,true) is not empty then -- empty = file not fnd.
  46.       return true
  47.     else
  48.       return false
  49.     end if
  50.   else
  51.     return false
  52.   end if
  53. end FileAtRoot
  54.  
  55. -- part contents for background part 3
  56. ----- text -----
  57. FileAtRoot